﻿Imports System.Reflection
Imports System.Deployment.Application
Imports System.Reflection.Assembly

Public Class Form4
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Me.Close()
    End Sub

    Private Sub Form4_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim sVersion As String = ""

        If System.Deployment.Application.ApplicationDeployment.IsNetworkDeployed Then
            sVersion = ApplicationDeployment.CurrentDeployment.CurrentVersion.ToString(4)

        Else
            sVersion = Assembly.GetExecutingAssembly().GetName().Version.ToString
        End If

        Label0.Text = "Version " + sVersion
    End Sub
End Class